home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Scene 96
/
Scene 96 International Edition (Zyklop Software) (Disc 1) (1997).iso
/
emulator
/
c64s
/
9402.d64
/
led-demo v2.0
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1996-02-18
|
1KB
|
35 lines
10 REM ********************************
20 REM * (C) 1993 BY TRAINSOFT *
30 REM * *
40 REM * (W) BY SVEN STOLZENBERG *
50 REM * AN DER KAISERMUEHLE 4 *
60 REM * 41747 VIERSEN 1 *
70 REM ********************************
80 REM *********
90 REM * MENUE *
100 REM *********
110 POKE53280,.:POKE53281,3
120 PRINT"[147][144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
130 PRINT"[221][146] [221]";
140 PRINT"[221][146] DEMO-PROGRAMM ZUR STEUERBAREN LED [221]";
150 PRINT"[221][146] [221]";
160 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
170 INPUT"EINSCHALTZEITRAUM :";A
180 INPUT"AUSSCHALTZEITRAUM :";B
190 PRINT" ERNEUTE EINGABE NACH DRUECKEN DER"
200 PRINT" SPACE-TASTE !"
210 REM *******************************
220 REM *STEUERUNG DES PROZESSOR-PORTS*
230 REM *******************************
240 POKE .,PEEK(.) AND NOT 16
250 POKE .,PEEK(.) OR 16
260 FOR I=. TO A:NEXT
270 POKE 192,1:POKE 1,PEEK(1) OR 32
280 FOR J=. TO B:NEXT
290 POKE 1,PEEK(1) AND 39:POKE 192,.
300 REM *******************
310 REM * TASTATURABFRAGE *
320 REM *******************
330 GET A$:IF A$="" THEN 260
340 IF A$=CHR$(32) THEN 110